Option Explicit
Sub P_Sample006()
    Dim myName    As String
    Dim myNewName As String
    myName = ThisWorkbook.Path & "\" & "P_Test1.txt"       'ƻsӷɮ
    myNewName = ThisWorkbook.Path & "\" & "P_Test2.txt"   'ƻsؼɮ
    If Len(Dir(myName)) > 0 And Len(Dir(myNewName)) = 0 Then
        FileCopy myName, myNewName
    End If
End Sub
